home *** CD-ROM | disk | FTP | other *** search
- /*
- \funcref{fun\_atol}{void fun\_atol ()}
- {}
- {}
- {addtolist(), discard(), newvar()}
- {fun\_atoi(), etc.}
- {funatol.c}
- {
- This function converts the last pushed variable, which is assumed to
- hold a string, to a list of one element. The string variable is
- discarded after use. The formed list, containing one element, is copied
- onto the stack to the former position of the string variable.
- }
- */
-
- #include "icm-exec.h"
-
- void fun_atol ()
- {
- VAR_
- tmp;
-
- tmp = newvar (e_list);
- tmp = addtolist (tmp, stack [sp].vu.i->ls.str);
-
- discard (stack [sp]);
- stack [sp] = tmp;
- }
-